5 POKE59468,14:CLR:DIMA(20),NU(20)
6 MM=15:MN=60:FORI=1TO20:READNU(I):NEXT
7 POKE53272,23:POKE53280,0:POKE53281,0:POKE646,3
8 GOTO80
10 TD=TI+TC
11 IFTI<TDTHEN11
12 RETURN
50 FORI=1TO10:POKE33334,81:GOSUB10:POKE33334,87:GOSUB10:NEXT:C=80:RETURN
51 FORI=1TO10:POKE33296,64:GOSUB10:POKE33296,98:GOSUB10:NEXT:C=85:RETURN
52 FORI=1TO10:POKE33298,81:GOSUB10:POKE33298,87:GOSUB10:NEXT:C=90:RETURN
53 FORI=1TO10:POKE33260,64:GOSUB10:POKE33260,98:GOSUB10:NEXT:C=95:RETURN
54 FORI=1TO10:POKE33262,81:GOSUB10:POKE33262,87:GOSUB10:NEXT:C=100:RETURN
55 FORI=1TO10:POKE33224,64:GOSUB10:POKE33224,98:GOSUB10:NEXT:C=105:RETURN
56 FORI=1TO10:POKE33226,81:GOSUB10:POKE33226,87:GOSUB10:NEXT:C=110:RETURN
57 FORI=1TO10:POKE33188,64:GOSUB10:POKE33188,98:GOSUB10:NEXT:C=115:RETURN
58 FORI=1TO10:POKE33190,81:GOSUB10:POKE33190,87:GOSUB10:NEXT:C=120:RETURN
59 FORI=1TO10:POKE33152,64:GOSUB10:POKE33152,98:GOSUB10:NEXT:C=125:RETURN
60 FORI=1TO10:POKE33154,81:GOSUB10:POKE33154,87:GOSUB10:NEXT:C=130:RETURN
61 FORI=1TO10:POKE33116,64:GOSUB10:POKE33116,98:GOSUB10:NEXT:C=135:RETURN
62 FORI=1TO10:POKE33118,81:GOSUB10:POKE33118,87:GOSUB10:NEXT:C=140:RETURN
63 FORI=1TO10:POKE33080,64:GOSUB10:POKE33080,98:GOSUB10:NEXT:C=145:RETURN
64 FORI=1TO10:POKE33082,81:GOSUB10:POKE33082,87:GOSUB10:NEXT:C=150:RETURN
65 FORI=1TO10:POKE33044,81:GOSUB10:POKE33044,87:GOSUB10:NEXT
66 C=150+(C-15)*5:RETURN
80 AA$=""
90 C$=" [192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][145]"
100 PRINT"[147]                                        [146]";
105 PRINT"            [205][193][212][200][160][201].[209]. [212][197][211][212]              [146]";
110 PRINT"                                        [146]":FORTM=1TO1500:NEXT
120 PRINT"[159]  [217]OU HAVE 15 MINUTES TO COMPLETE 20      QUESTIONS."
130 PRINT"  [201]N EACH PROBLEM, ENTER THE MISSING      NUMBER."
135 PRINT"   [206][207][212][197]:[146]  TYPE  [206] [146] TO SKIP TO THE NEXT            PROBLEM."
140 FORTM=1TO2000:NEXT
145 PRINT"[154]    [208]RESS [211][208][193][195][197][160][194][193][210][146] TO CONTINUE[159]"
150 GETA$:IFA$<>CHR$(32) THEN150
160 IFFLAG=1THENPRINT"[147]":RETURN
170 TI$="000000":GOTO190
180 FORTM=1TO1000:NEXT:PRINT"[147]"TAB(17);"TIME ELAPSED:"TI$
185 FORTM=1TO1000:NEXT:RETURN
190 GOSUB180
200 PRINT"1)"
220 PRINT"   4  8  6"
230 PRINT"   6  2  4
240 [153]"   8  6  ?";
241 [139]FLAG[179][177]1[167]250
242 [153][166]11);"ATNNSWER = "NU(1)"CMD WAIT"
243 [153]" ATNDD THE FIRST 2 COLUMNS AND DIVIDE BY 2":[137]300
250 [141]2000:[139]FLAG[178]2[167]1325
260 [141]180
300 [153]"2) 7  13  24  45  ?";
311 [139]FLAG[179][177]1[167]320
312 [153]"  ATNNSWER = "NU(2)"CMD WAIT "
313 [153]"+6+11+21+36"
314 [153]"+5+10+15":[137]350
320 [141]2000:[139]FLAG[178]2[167]1325
330 [141]180
350 [153]"3) 6  10  18  34  ?";
361 [139]FLAG[179][177]1[167]370
362 [153]"  ATNNSWER = "NU(3)"CMD WAIT"
363 [153]"+4+8+16+32"
364 [153]"*2*2*2":[141]140:[137]400
370 [141]2000:[139]FLAG[178]2[167]1325
390 [141]180
400 [153]"4) 212 179 146 113  ?";
411 [139]FLAG[179][177]1[167]420
412 [153]"  ATNNSWER = ";NU(4);"CMD WAIT"
413 [153]"-33-33-33-33":[137]450
420 [141]2000:[139]FLAG[178]2[167]1325
430 [141]180
450 [153]"5)"
460 [153]"   4  1  2"
470 [153]"   2  6  3"
480 [153]"   3  2  ?";
481 [139]FLAG[179][177]1[167]490
482 [153][166]13);"ATNNSWER = "NU(5)"CMD WAIT"
483 [153]" VALACH COLUMN SHOULD TOTAL 9":[137]520
490 [141]2000:[139]FLAG[178]2[167]1325
510 [141]180
520 [153]"6) 4  5  7  11  ?";
531 [139]FLAG[179][177]1[167]540
532 [153]"ATNNSWER = "NU(6)"CMD WAIT"
533 [153]"    +1+2+4+8((null)OWERS OF 2)":[141]140:[137]570
540 [141]2000:[139]FLAG[178]2[167]1325
565 [141]180
570 [153]"7) 9  4  1"
590 [153]"   6  6  2"
600 [153]"   1  9  ?";
601 [139]FLAG[179][177]1[167]610
602 [153][166]11);"ATNNSWER = ";NU(7);"CMD WAIT"
603 [153]"  VALACH ROW SHOULD TOTAL 14":[137]640
610 [141]2000:[139]FLAG[178]2[167]1325
620 [141]180
640 [153]"8) 8  2  4"
660 [153]"   1  5  3"
670 [153]"   1  3  ?";
671 [139]FLAG[179][177]1[167]680
672 [153][166]11);"ATNNSWER = ";NU(8);"CMD WAIT"
673 [153]"  VALACH COLUMN SHOULD TOTAL 10":[137]710
680 [141]2000:[139]FLAG[178]2[167]1325
690 [141]180
710 [153]"9) 6  7  9  13  ?";
721 [139]FLAG[179][177]1[167]730
722 [153]"ATNNSWER = "NU(9)"CMD WAIT"
723 [153]"     +1+2+4+8((null)OWERS OF 2)":[141]140:[137]760
730 [141]2000:[139]FLAG[178]2[167]1325
750 [141]180
760 [153]"10) 15 13 29 ?";
771 [139]FLAG[179][177]1[167]780
772 [153]"ATNNSWER = "NU(10)"CMD WAIT"
773 [153]"+4+8+16+32  ((null)OWERS OF 2)":[137]810
780 [141]2000:[139]FLAG[178]2[167]1325
790 [141]180
810 [153]"11)2  10  4"
830 [153]"   3  17  5"
840 [153]"   3  ??  6";
841 [139]FLAG[179][177]1[167]850
842 [153][166]15);"ATNNSWER = "NU(11)"CMD WAIT"
843 [153]"(null)ULTIPLY COLUMN 1 & 3 SUBTRACT THE      PRODUCT FROM COLUMN 2 THE ";
844 [153]"DIFFERENCE    SHOULD BE 2":[137]880
850 [141]2000:[139]FLAG[178]2[167]1325
870 [141]180
880 [153]"12) 2  8  5  6  8  ?  11";
891 [139]FLAG[179][177]1[167]900
892 [153]"ATNNSWER = "NU(12)"CMD WAIT"
893 [153]"+6-3+1+2-4+7"
894 [153]"-3-2+1+2-3ON":[141]140:[137]930
900 [141]2000:[139]FLAG[178]2[167]1325
920 [141]180
930 [153]"13) 2  8  20  44  ?";
941 [139]FLAG[179][177]1[167]950
942 [153]"ATNNSWER = "NU(13)"CMD WAIT"
943 [153]"+6+12+24+48"
944 [153]"*2*2*2":[137]980
950 [141]2000:[139]FLAG[178]2[167]1325
970 [141]180
980 [153]"14) 5  25  85  265  ?";
991 [139]FLAG[179][177]1[167]1000
992 [153]"ATNNSWER = "NU(14)"CMD WAIT"
993 [153]"+20+60+180+540"
994 [153]"*3*3*3":[137]1030
1000 [141]2000:[139]FLAG[178]2[167]1325
1020 [141]180
1030 [153]"15) 24  26  30  38  ?";
1041 [139]FLAG[179][177]1[167]1050
1042 [153]"ATNNSWER = "NU(15)"CMD WAIT"
1043 [153]"+2+4+8+16 "
1044 [153]"*2*2*2":[141]140:[137]1080
1050 [141]2000:[139]FLAG[178]2[167]1325
1070 [141]180
1080 [153]"16) 2  6   38   ?";
1091 [139]FLAG[179][177]1[167]1100
1092 [153][166]8);"ATNNSWER = "NU(16)"CMD WAIT"
1093 [153]"   (null)CMD/TAN+3ONCMD(null)6TANEXPONCMD(null)(null)CMD(null)"
1094 [153]"     (null)/TANCMDCMDCMD/TAN*40TANEXPONCMDCMDCMDCMD+1440TANEXP":[137]1120
1100 [141]2000:[139]FLAG[178]2[167]1325
1110 [141]180
1120 [153]"17) 5  9  4  6  8  ?";
1131 [139]FLAG[179][177]1[167]1140
1132 [153]"ATNNSWER = "NU(17)"CMD WAIT"
1133 [153]"   /TANTAN-1TANEXP  (null)  (null)  (null)"
1134 [153]"   /TANTANTAN+1TANTANTANEXP  (null)  (null)"
1135 [153]"   /TANTANTANTANTAN+3TANTANTANTANEXPCMDTANTANTANEXPONCMD(null)"
1136 [153]"   /TANTANTANTANTANTAN-3TANTANTANTAN":[137]1180
1140 [141]2000:[139]FLAG[178]2[167]1325
1170 [141]180
1180 [153]"18)6  8  10  11  14  14  ?";
1191 [139]FLAG[179][177]1[167]1200
1192 [153]"ATNNS = "NU(18)"CMD WAIT"
1193 [153]"   /TAN+4TANTANEXP/TANTAN+4TANTANEXP/TANTAN+4TANTANEXP"
1194 [153]"(null)CMD/TANTAN+3TANTANEXPONCMD(null)(null)CMD/TANTAN+3TANTANEXPONCMD(null)":[141]140:[137]1230
1200 [141]2000:[139]FLAG[178]2[167]1325
1220 [141]180
1230 [153]"19) 9 1 6 41 ?";
1241 [139]FLAG[179][177]1[167]1250
1242 [153]"ATNNSWER = "NU(19)"CMD WAIT"
1243 [153]"+5+35+1645"
1244 [153]"*7*47":[137]1280
1250 [141]2000
1260 [139]FLAG[178]2[167]1325
1270 [141]180
1280 [153]"20)200  162  124  ?";
1291 [139]FLAG[179][177]1[167]1295
1292 [153]"ATNNSWER = "NU(20)"CMD WAIT"
1293 [153]"-38-38-38":[137]1600
1295 [141]2000:[139]FLAG[178]2[167]1325
1300 [129]K[178]1[164]20:[139]A(K)[179][177]1[167]1325
1302 FLAG[178]2:[153]"LOAD"[163]22);"MINUTES REMAINING"
1318 [139]K[178]17[167]1120
1319 [139]K[178]18[167]1180
1320 [139]K[178]19[167]1230
1321 [139]K[178]20[167]1280
1322 [145]K[137]200,300,350,400,450,520,570,640,710,760,810,880,930,980,1030,1080
1325 [130]K:FLAG[178]0
1330 [151]59468,12:[153]"LOAD (null)OU HAVE"C"CORRECT OUT OF 20 PROBLEMS"
1340 [153]" (null)BSERVE YOUR SCORE ON THE GRAPH BELOW"
1350 [153][163]15);" RIGHT$.(null). WAIT"
1360 K[178]0:[129]J[178]15[164]8[169][171]1
1370 [153][201]([196](J[172]10),3)C$:[153][200](AA$,34[171]K[172]4);"(null)"
1440 K[178]K[170]1:[130]J
1450 [153]"      1   3   5   7   9   11  13  15":TC[178]30
1455 [145]C[141]50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,65,65,65,65
1460 [153][163]8);"RIGHT$.(null). SCORE = "C"POINTS"
1462 [139]C[177]95[167]1465
1463 [153]"       ATN MATHEMATICAL MENTAL MIDGET !":[137]1478
1465 [139]C[177]110[167]1468
1466 [153]"       ATNN AVERAGE MATHEMATICAL I.Q.":[137]1478
1468 [139]C[177]130[167]1471
1469 [153]"       ATN SUPER MATHEMATICAL WHIZ !!":[137]1478
1471 [153]"          ATN MATHEMATICAL GENIUS !!"
1478 [153]"   STR$O YOU WANT TO DISPLAY THE ANSWERS ?              Y/N  ";
1480 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]1480
1490 [139]A$[178]"N"[167]1600
1500 FLAG[178]1:[151]59468,14:[153]"LOAD":[137]200
1600 [153]"LOAD(null)OU HAVE A CHOICE:
1610 PRINT"[208]RESS  [208] [146] TO PLAY AGAIN
1620 [153]"(null)RESS  (null) WAIT TO GO TO DISK MENU
1630 GETR$:IFR"<>"P"ANDR$<>""ANDR$<>"M"ANDR$<>""THEN1630
1640 [139]R$[178]"P"[167][138]
1650 [139]R$[178]"(null)"[167][138]
1660 [153]"LOAD(null)ETURNING TO THE DISK MENU
1670 LOAD"MENU",8
1680 RUN
1690 END
1699 :
2000 PRINT:PRINT" [197]NTER THE MISSING NUMBER ";
2003 IFFLAG=2THENJ=1:GOTO2010
2005 J=1:CO=CO+1
2010 PRINT"?";
2015 MX=MM-INT((TI-TM)/(60*60)+.5)
2020 MX$=STR$(MX):MX$=RIGHT$(MX$,2):M1=ASC(LEFT$(MX$,1)):M2=ASC(RIGHT$(MX$,1))
2024 POKE32787,M1:POKE32788,M2
2025 IFTI-TM<MN*MN*MMTHEN2030
2026 PRINT"[158][157]TIME'S UP":FORI=1TO3000:NEXT:GOTO1330
2030 GETJ$(J):IFJ$(J)=""THEN2025
2040 IFJ$(J)=CHR$(20)THENPRINT"[157] [157][157]?";:J=J-1:GOTO2030
2050 IFJ$(1)=CHR$(13)THEN2030
2060 IFJ$(J)=CHR$(13)THENPRINT"[157] ":GOTO2090
2070 PRINT"[157]";J$(J);
2075 IFJ$(J)="N"THENPRINT:A(CO)=1:RETURN
2080 IFJ$(J)<"0"ORJ$(J)>"9"THENPRINT"[157] [157]?";:GOTO2030
2085 J=J+1:GOTO2010
2090 J$=""
2100 FORL=1TOJ-1
2110 J$=J$+J$(L):NEXT
2120 B=VAL(J$):IFB=NU(CO)THENC=C+1
2125 IFA(K)=1ANDB=NU(K)THENC=C+1
2130 RETURN
3000 DATA7,86,66,80,4,19,4,3,21,61,20,4,92,805,54,1446,2,18,1686,86
3500 REM WHC  91:04:01/95:05:27